home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / bluebery.arc / FILEDATE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-29  |  2.9 KB  |  48 lines
  1. 5  CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):LIST 10-57
  2. 13  '***************** FILE DATE AND TIME STAMP PROGRAM  ***********************
  3. 17  'KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE
  4. 19  'OPEN           PROGRAM TO CHANGE DATE AND HOUR OF DISK FILES                 OPEN
  5. 21  'OPEN                                                                         OPEN
  6. 23  'OPEN     This great basic program was written by Clay Jones of Tolleson, AZ. OPEN
  7. 25  'OPEN You may have noticed that all of the files on the DOS Disk show the     OPEN
  8. 27  'OPEN same date and hour. It might seem as if the internal clock had failed   OPEN
  9. 29  'OPEN or there were some mighty fast and prolific programmers. This program   OPEN
  10. 31  'OPEN permits you to put a new "time/date stamp" on PC disk files. It is an   OPEN
  11. 33  'OPEN easy program to use. It is self-documenting.  The DIM statement has     OPEN
  12. 35  'OPEN been set at 20. It is recommended that you limit the update to only     OPEN
  13. 37  'OPEN 10 files in one "run" of the program. This will keep your input list    OPEN
  14. 39  'OPEN at a reasonable level.  This program will work on .COM files also.      OPEN
  15. 41  'OPEN                                                                         OPEN
  16. 43  'OPEN     This program may be used in whole or in part without license or     OPEN
  17. 45  'OPEN attribution.         (c) G I N A C O  -- 1983      Ver 5.1 160/320      OPEN
  18. 47  'SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD
  19. 55  '        *****  < F2 > to RUN  *******  < F10 > For BLUEMENU  *****
  20. 57  ' ====== To avoid DOCUMENTATION BOX each time, REM or DELETE  line 5 ======
  21. 60  FOR I=1 TO 10:KEY I,"":NEXT
  22. 100  CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80:CLEAR
  23. 110  ON ERROR GOTO 580
  24. 150  PRINT"FILEDATE.BAS    a program to change the date and time of disk files":DIM FILE$(20)
  25. 170  LOCATE 5,1:INPUT"What date do you want on the files (MM/DD/YY)";IDATE$
  26. 190  DATE$=IDATE$:LOCATE5,1:PRINTSPC(70)
  27. 220  LOCATE5,1:INPUT"What time do you want on the files (HH:MM)";ITIME$
  28. 240  TIME$=ITIME$:LOCATE5,1:PRINTSPC(70):LOCATE5,1,0:PRINT"Which disk drive are the files on";:COLOR23:PRINT"?":COLOR7
  29. 320  DRIVE$=INKEY$:IFDRIVE$=""THEN320
  30. 340  IFLEN(DRIVE$)>1THENDRIVE$="
  31. 350  IF(ASC(DRIVE$)<65ORASC(DRIVE$)>90)AND(ASC(DRIVE$)<97ORASC(DRIVE$)>122)THENDRIVE$=""ELSEDRIVE$=DRIVE$+":
  32. 360  LOCATE5,1:PRINTSPC(70):LOCATE3,1:IFDRIVE$=""THENPRINT"Printing files on default drive"ELSEPRINT"Printing files on drive "DRIVE$
  33. 400  LOCATE5,1:IFDRIVE$<>""THENFILESDRIVE$+"*.*"ELSEFILES
  34. 420  I=0:PRINT
  35. 440  INPUT"Filename";FILENAME$:IFFILENAME$<>""THENI=I+1:FILE$(I)=FILENAME$:GOTO440
  36. 460  FORL=1TOI:OPEN DRIVE$+FILE$(L) AS 1 LEN=1:DATE$=IDATE$:TIME$=ITIME$:GET#1,1:PUT#1,1:CLOSE:NEXTL:CLS:LOCATE5,1:PRINT"Your date and time are now set to ";IDATE$;" and ";ITIME$:END
  37. 580  IFERR<>5ORERL<>190THEN630
  38. 590  LOCATE6,1:PRINT"Not a valid date":GOSUB690:RESUME170
  39. 630  IFERR<>5ORERL<>240THEN680
  40. 640  LOCATE6,1:PRINT"Not a valid time":GOSUB690:RESUME220
  41. 680  ONERRORGOTO0
  42. 690  LOCATE25,10:PRINT"Press space to continue";
  43. 710  IFINKEY$<>" "THEN710
  44. 720  LOCATE5,1:PRINTSPC(70):LOCATE6,1:PRINTSPC(70):LOCATE25,1:PRINTSPC(70);:RETURN
  45. 730  END
  46. 65000  REM ******************* SAVE ROUTINE ***********************************
  47. 65100  SAVE"B:FILEDATE.BAS
  48.